home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / Scala / HD-Install / Deutsch < prev    next >
Text File  |  1997-12-16  |  19KB  |  661 lines
  1. ; $VER: Scala Install Program Version 3.03 (2-Nov-95)
  2.  
  3. ;----------------------------- Text Strings -------------------------------
  4.  
  5. (set msg_Utils    "Scala-Utilities")
  6. (set msg_Palettes    "Scala-Paletten")
  7. (set msg_Symbols  "Scala-Symbole")
  8. (set msg_ARexx       "Scala-Arexx-Beispiel")
  9. (set msg_EX    "Scala-EX")
  10. (set msg_Fonts    "Scala-Fonts")
  11. (set msg_Back     "Scala-Hintergründe")
  12. (set msg_Demos    "Scala-Demo-Scripts")
  13. (set msg_Resize      "Scala-Hintergründe anpassen")
  14. (set msg_ScalaFont   "Scala.font")
  15. (set msg_NoFastMem1     "Kein FAST-RAM vorhanden oder verfügbar.\n\n")
  16. (set msg_NoFastMem2     "Scala MM300 benötigt FAST-RAM zum Arbeiten.\n\n")
  17. (set msg_NoFastMem3  "Um Scala zu installieren, müssen Sie Ihren Amiga zuerst um FAST-RAM erweitern, über den PCMCIA-Steckplatz (A1200) oder Einbau einer Speichererweiterungs- und/oder Turbo-Karte im Erweiterungssteckplatz (A1200/A4000).")
  18. (set msg_NoSelect "Sie haben gar nichts ausgewählt. Bitte noch einmal.")
  19. (set msg_NoDrawer ("Sie müssen eine Schublade zur Installation von %s auswählen. Bitte legen Sie eine neue Schublade an oder wählen Sie eine existierende." @app-name))
  20. (set msg_ChooseWhat  ("Bitte wählen Sie, welche Teile von %s Sie installieren wollen:" @app-name))
  21. (set msg_ChooseDest  ("Bitte wählen Sie, wo Sie %s installiert haben möchten:" @app-name))
  22. (set msg_Overscan1   "Sie können die Größe der Scala-Hintergründe (Backgrounds) an Overscan anpassen lassen. Bitte beachten Sie, daß die Wahl von %s oder %s mehr Platz auf Ihrer Festplatte braucht und die Qualität der Scala-Wipes vermindern kann.\n\n")
  23. (set msg_Overscan2   "Sie möchten die Größe der Scala-Hintergründe an Overscan anpassen lassen. Bitte beachten Sie, daß dies mehr Platz auf Ihrer Festplatte braucht und die Qualität der Scala-Wipes vermindern kann.\n\n")
  24. (set msg_ChooseSize  "Please select which size you want the Scala Background pictures:")
  25. (set msg_OldWorkbench   ("Sie benötigen mindestens Workbench 2.04, um %s zu installieren." @app-name))
  26. (set msg_Nor      "Normal")
  27. (set msg_Std      "Standard")
  28. (set msg_Max      "Max")
  29. (set msg_Startup  ("Möchten Sie, daß %s automatisch jedesmal startet, wenn Sie Ihren Amiga einschalten?" @app-name))
  30. (set msg_ErrorRam "Fehler beim Kopieren von Dateien in die Ram-Disk.")
  31. (set msg_Insert      "Bitte legen Sie Disk %ld in ein beliebiges Laufwerk.")
  32. (set msg_Installing  "Installieren von %s...")
  33. (set msg_MoveLingua  "Pfad anpassen in %s...")
  34. (set msg_ConvertNTSC "Hintergrund %s nach NTSC konvertieren...")
  35. (set msg_ConvertOverscan "Hintergrund %s für Overscan konvertieren...")
  36. (set msg_DeleteOldFiles ("Sie haben schon eine ältere Version von %s auf Ihrer Festplatte installiert. Wollen Sie alte Dateien löschen, die nicht mehr gebraucht werden?" @app-name))
  37.  
  38.  
  39. ;------------------------------ Constants ---------------------------------
  40.  
  41. (if (= @app-name "Scala InfoChannel")
  42.     (set IC 1)
  43.     (set IC 0)
  44. )
  45.  
  46. (if (= @app-name "InfoChannel Player")
  47.     (set PL 1)
  48.     (set PL 0)
  49. )
  50.  
  51. (if (= @app-name "Scala Multimedia")
  52.     (set MM 1)
  53.     (set MM 0)
  54. )
  55.  
  56. (if (= @app-name "Scala Multimedia Upgrade")
  57.     (set UPGR 1)
  58.     (set UPGR 0)
  59. )
  60.  
  61. (if (or IC MM)
  62.     (
  63.    (set opt_Scala    %000000001)
  64.    (set opt_Utils    %000000010)
  65.    (set opt_Palettes %000000100)
  66.    (set opt_Symbols  %000001000)
  67.    (set opt_ARexx    %000010000)
  68.    (set opt_EX    %000100000)
  69.    (set opt_Fonts    %001000000)
  70.    (set opt_Back     %010000000)
  71.    (set opt_Demos    %100000000)
  72.     )
  73. )
  74.  
  75. (if MM
  76.     (
  77.    (set lha_Scala    "Scala.lha")
  78.    (set num_Scala    1)
  79.    (set lha_ScalaFont   "ScalaFont.lha")
  80.    (set num_ScalaFont   1)
  81.    (set lha_Utils    "Utilities.lha")
  82.    (set num_Utils    1)
  83.    (set lha_EX    "EX.lha")
  84.    (set num_EX    10)
  85.    (set lha_ARexx    "ARexx.lha")
  86.    (set num_ARexx    1)
  87.    (set lha_Scripts  "Scripts.lha")
  88.    (set num_Scripts  1)
  89.    (set lha_Fonts    "Fonts.lha")
  90.    (set num_Fonts    2)
  91.    (set lha_Palettes "Palettes.lha")
  92.    (set num_Palettes 2)
  93.    (set lha_Symbols  "Symbols.lha")
  94.    (set num_Symbols  2)
  95.    (set lha_Back1    "Backgrounds1.lha")
  96.    (set num_Back1    2)
  97.    (set lha_Back2    "Backgrounds2.lha")
  98.    (set num_Back2    3)
  99.    (set lha_Back3    "Backgrounds3.lha")
  100.    (set num_Back3    4)
  101.    (set lha_Back4    "Backgrounds4.lha")
  102.    (set num_Back4    5)
  103.    (set lha_Back5    "Backgrounds5.lha")
  104.    (set num_Back5    6)
  105.    (set lha_Demos1      "Demos1.lha")
  106.    (set num_Demos1      6)
  107.    (set lha_Demos2      "Demos2.lha")
  108.    (set num_Demos2      7)
  109.    (set lha_Demos3      "Demos3.lha")
  110.    (set num_Demos3      8)
  111.    (set lha_Demos4      "Demos4.lha")
  112.    (set num_Demos4      9)
  113.     )
  114. )
  115.  
  116.  
  117.  
  118. ;-------------------------- Utility procedures ----------------------------
  119.  
  120. (Procedure CheckConfig
  121.     (set OS_Version (/ (getversion) 65536))
  122.     (if (< OS_Version 37)
  123.    (abort msg_OldWorkbench)
  124.     )
  125.     (if (= (database "vblank") 50)
  126.         (   (SET VideoMode "PAL")
  127.             (SET NOR ("640 x 512 (%s)" msg_Nor))
  128.             (SET STD ("704 x 566 (%s)" msg_Std))
  129.             (SET MAX ("736 x 566 (%s)" msg_Max))
  130.    )
  131.         (   (SET VideoMode "NTSC")
  132.             (SET NOR ("640 x 400 (%s)" msg_Nor))
  133.             (SET STD ("704 x 480 (%s)" msg_Std))
  134.             (SET MAX ("736 x 482 (%s)" msg_Max))
  135.    )
  136.     )
  137. )
  138.  
  139. (Procedure CheckFastMem
  140.    (run "AVAIL >ENV:FastMem FAST" (Safe))
  141.    (if (= ("%.1s" (getenv "FastMem")) 0)
  142.        (abort msg_NoFastMem1 msg_NoFastMem2 msg_NoFastMem3)
  143.    )
  144.    (Delete "ENV:FastMem")
  145. )
  146.  
  147. (Procedure CopyTools
  148. ;(askdisk (dest "Disk1") (prompt (msg_Insert 1)) (help @askdisk-help))
  149.     (copyfiles
  150.    (prompt "")
  151.    (help @copyfiles-help)
  152.    (source "Tools")
  153.    (all)
  154.    (dest "RAM:")
  155.     )
  156.     (if (not (and (exists "RAM:LHa") 
  157.         (exists "RAM:MakeOverscan") 
  158.         (exists "RAM:MoveLingua")))
  159.    (abort msg_ErrorRam)
  160.     )
  161. )
  162.  
  163.  
  164. (Procedure InstallFile
  165. ;(askdisk
  166. ;    (dest ("Disk%ld" DiskNum))
  167. ;    (prompt (msg_Insert DiskNum))
  168. ;    (help @askdisk-help)
  169. ;)
  170.     (working (msg_Installing Installing))
  171.     (run ("RAM:LHa -N x %s \"%s/\"" LhaFile @Dest))
  172. )
  173.  
  174.  
  175. (Procedure InstallFontFiles
  176.     (working (msg_Installing Installing))
  177.     (run ("RAM:LHa -N x %s \"%s\"" LhaFile "Fonts:"))
  178. )
  179.  
  180.  
  181. (Procedure MoveLingua
  182.     (set i 0)
  183.     (while 
  184.    (set ScriptName 
  185.        (if IC
  186.            (select i
  187.              "InfoChannelIC400.script"
  188.              "LoScalatore.script"
  189.              "ScalaAGA.script"
  190.              "ScalaAirport.script"
  191.              "ScalaCableTV.script"
  192.              "ScalaComms.script"
  193.              "ScalaFeatures.script"
  194.              "ScalaFonts.script"
  195.              "ScalaHotel.script"
  196.              "ScalaQuiz.script"
  197.              "ScalaShopping.script"
  198.              "ScalaTime.script"
  199.              "ScalaTravel.script"
  200.              "ScalaVoice.script"
  201.              "ScalaWipes.script"
  202.              "ScalaWorld.script"
  203.              "ScaliniMotor.script"
  204.              ""
  205.            )
  206.            (select i
  207.              "!ScalaMain.script"
  208.              "LoScalatore.script"
  209.              "ScalaFeatures.script"
  210.              "ScalaFonts.script"
  211.              "ScalaMM300.script"
  212.              "ScalaProducts.script"
  213.              "ScalaQuiz.script"
  214.              "ScalaRave.script"
  215.              "ScalaVideo.script"
  216.              "ScalaVoice.script"
  217.              "ScalaWipes.script"
  218.              "ScalaWorld.script"
  219.              ""
  220.            )
  221.        )
  222.       )
  223.    (set ScriptName (tackon (tackon @dest "Scripts") ScriptName))
  224.       (if (exists ScriptName)
  225.        (
  226.            (working (msg_MoveLingua ScriptName))
  227.            (run ("RAM:MoveLingua \"%s\" Work:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
  228.        )
  229.    )
  230.    (set i (+ i 1))
  231.     )
  232. )
  233.  
  234. (Procedure MakeOverscan
  235.     (set i 0)
  236.     (while 
  237.    (set PictureName 
  238.        (if UPGR
  239.            (select i
  240.           "Fabrics004"  "Nature001" "Nature002"
  241.           "Stones012"      "Stones013" "Texture014"
  242.           "Texture015"  "Texture016"   "Theme005"
  243.           ""
  244.       )
  245.            (select i
  246.           "Fabrics001"  "Fabrics002"   "Fabrics003"
  247.           "Fabrics004"  "Fantasy001"   "Grass001"
  248.           "NaiveBook"      "NaiveClock"   "NaiveCoffee"
  249.           "NaiveDisk"      "NaivePencil"  "NaivePhone"
  250.           "NaivePiano"  "NaivePlate"   "Nature001"
  251.           "Nature002"      "Number001" "Number002"
  252.           "Number003"      "Number004" "Number005"
  253.           "Number006"      "Number007" "Number008"
  254.           "Number009"      "Painting001"  "Painting002"
  255.           "Painting003" "Painting004"  "Paper001"
  256.           "Paper002"    "Paper003"  "Paper004"
  257.           "Paper005"    "Sky001" "Stones001"
  258.           "Stones002"      "Stones003" "Stones004"
  259.           "Stones005"      "Stones006" "Stones007"
  260.           "Stones008"      "Stones009" "Stones010"
  261.           "Stones011"      "Stones012" "Stones013"
  262.           "Tech001"     "Tech002"   "Tech003"
  263.           "Tech004"     "Tech005"   "Tech006"
  264.           "Tech007"     "Texture001"   "Texture002"
  265.           "Texture003"  "Texture004"   "Texture005"
  266.           "Texture006"  "Texture007"   "Texture008"
  267.           "Texture009"  "Texture010"   "Texture011"
  268.           "Texture012"  "Texture013"   "Texture014"
  269.           "Texture015"  "Texture016"   "Theme001"
  270.           "Theme002"    "Theme003"  "Theme004"
  271.           "Theme005"    "Water001"  "Window001"
  272.           ""
  273.            )
  274.        )
  275.       )
  276.       (if (and (= VideoMode "NTSC") (= BackSize 0))
  277.        (working (msg_ConvertNTSC PictureName))
  278.        (working (msg_ConvertOverscan PictureName))
  279.    )
  280.    (set PictureName (tackon (tackon @dest "Backgrounds") PictureName))
  281.    (run ("RAM:MakeOverscan \"%s\" \"%s\" %s %s" PictureName PictureName
  282.       VideoMode (select BackSize "NOR" "STD" "MAX")))
  283.    (set i (+ i 1))
  284.     )
  285.     (if (= VideoMode "NTSC")
  286.    (
  287.             (set PictureName (tackon (tackon @dest "Backgrounds") "World001"))
  288.           (run ("RAM:MakeOverscan \"%s\" \"%s\" NTSC NOR" PictureName PictureName))
  289.    )
  290.     )
  291. )
  292.  
  293. ;-------------------------- Cleanup procedures ----------------------------
  294.  
  295. (Procedure DeleteTools
  296.     (delete "RAM:MakeOverscan" "RAM:MoveLingua" "RAM:Lha")
  297. )
  298.  
  299. (onerror (DeleteTools))
  300.  
  301.  
  302. (Procedure DeleteOldFiles
  303.     (if (or IC PL)
  304.    (
  305.        (if (exists "libs:infochannel.library")
  306.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  307.           (
  308.               (delete "libs:infochannel.library")
  309.               (delete "devs:infochannel.device")
  310.               (delete "s:infochannel.config")
  311.               (delete "s:infochannel.layout")
  312.               (delete "s:infochannel.layout.info")
  313.               (delete "s:startup-script")
  314.               (delete "fonts:Info.font")
  315.               (delete "fonts:Info/11")
  316.               (delete "fonts:Info/8")
  317.               (delete "fonts:Info")
  318.               (delete (tackon @dest "InfoPrint"))
  319.               (delete (tackon @dest "InfoPrint.info"))
  320.               (delete (tackon @dest "InfoNet"))
  321.               (delete (tackon @dest "InfoNet.info"))
  322.           )
  323.       )
  324.        )
  325.    )
  326.    (
  327.        (if (exists "libs:scalamm.library")
  328.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  329.           (
  330.               (delete "libs:scalamm.library")
  331.               (delete "devs:scalamm.device")
  332.               (delete "s:scalamm.config")
  333.               (delete "s:scalamm.layout")
  334.               (delete "s:scalamm.layout.info")
  335.               (delete "s:startup-script")
  336.               (set utils (tackon @dest "Utilities"))
  337.               (delete (tackon utils "ScalaMMPrint"))
  338.               (delete (tackon utils "ScalaMMPrint.info"))
  339.           )
  340.       )
  341.        )
  342.    )
  343.     )
  344. )
  345.  
  346. ;-------------------------- Menu procedures -------------------------------
  347.  
  348. (Procedure InstallMenu
  349.     (until (<> Selection 0)
  350.       (
  351.             (if (or IC MM)
  352.            (set Selection
  353.                (askoptions
  354.                    (prompt msg_ChooseWhat)
  355.                    (help @askoptions-help)
  356.                         (choices @app-name
  357.                              msg_Utils
  358.                              msg_Palettes
  359.                              msg_Symbols
  360.                              msg_ARexx
  361.                              msg_EX
  362.                              msg_Fonts
  363.                              msg_Back
  364.                              msg_Demos
  365.                         )
  366.           )
  367.       )
  368.        )
  369.        (if PL
  370.            (set Selection
  371.                (askoptions
  372.                    (prompt msg_ChooseWhat)
  373.                    (help @askoptions-help)
  374.               (choices @app-name
  375.                       msg_Symbols
  376.                       msg_EX
  377.                       msg_Fonts
  378.                       msg_Back
  379.                      )
  380.           )
  381.       )
  382.             )
  383.        (if UPGR
  384.       (set Selection
  385.                (askoptions
  386.                    (prompt msg_ChooseWhat)
  387.                    (help @askoptions-help)
  388.                    (default %11111)
  389.                         (choices @app-name
  390.                              msg_Utils
  391.                              msg_EX
  392.                              msg_Back
  393.                              msg_Demos
  394.                         )
  395.           )
  396.                 )
  397.             )
  398.  
  399.    )
  400.         (if (= Selection 0)    
  401.             (message msg_NoSelect)
  402.         )
  403.     )
  404. )
  405.  
  406.  
  407. (Procedure BackMenu
  408.     (set BackSize
  409.         (askchoice
  410.             (prompt (msg_Overscan1 STD MAX) msg_ChooseSize)
  411.             (help @askchoice-help)
  412.             (choices NOR STD MAX)
  413.    )
  414.     )
  415. )
  416.  
  417.  
  418. (Procedure DestMenu
  419.     (set @dest "")
  420.     (while (= @dest (pathonly @dest))
  421.         (set @dest
  422.             (askdir
  423.                 (prompt msg_ChooseDest)
  424.                 (help @askdir-help)
  425.                 (newpath)
  426.                 (default @default-dest)
  427.        )
  428.         )
  429.         (if (= @dest (pathonly @dest))
  430.        (message msg_NoDrawer)
  431.    )
  432.     )
  433.     (if (not (exists @dest))
  434.       (
  435.        (makedir @dest (infos))
  436.             (tooltype (dest @dest) (noposition))
  437.    )
  438.     )
  439.     (set @default-dest @dest)
  440. )
  441.  
  442.  
  443.  
  444. ;------------------------- Installation procedures ------------------------
  445.  
  446. (Procedure InstallScala
  447.     (set System (tackon @dest "System"))
  448.     (makedir System (infos))
  449.     (tooltype (dest System) (noposition))
  450.  
  451.     (set Installing @app-name)
  452.     (set LhaFile lha_Scala)
  453.     (set DiskNum num_Scala)
  454.     (InstallFile)
  455.  
  456.     (set LhaFile "German/ScalaMsgGer.Lha")
  457.     (set DiskNum num_Scala)
  458.     (InstallFile)
  459.  
  460.     (set Installing msg_ScalaFont)
  461.     (set LhaFile lha_ScalaFont)
  462.     (set DiskNum num_ScalaFont)
  463.     (InstallFontFiles)
  464.  
  465. )
  466.  
  467. (Procedure InstallUtils
  468.     (set Utilities (tackon @dest "Utilities"))
  469.     (makedir Utilities (infos))
  470.     (tooltype (dest Utilities) (noposition))
  471.  
  472.     (set Installing msg_Utils)
  473.     (set LhaFile lha_Utils)
  474.     (set DiskNum num_Utils)
  475.     (InstallFile) 
  476. )
  477.  
  478. (Procedure InstallPalettes
  479.     (set Palettes (tackon @dest "Palettes"))
  480.     (makedir Palettes (infos))
  481.     (tooltype (dest Palettes) (noposition))
  482.  
  483.     (set Installing msg_Palettes)
  484.     (set LhaFile lha_Palettes)
  485.     (set DiskNum num_Palettes)
  486.     (InstallFile)
  487. )
  488.  
  489. (Procedure InstallSymbols
  490.     (set Symbols (tackon @dest "Symbols"))
  491.     (makedir Symbols (infos))
  492.     (tooltype (dest Symbols) (noposition))
  493.  
  494.     (set Installing msg_Symbols)
  495.     (set LhaFile lha_Symbols)
  496.     (set DiskNum num_Symbols)
  497.     (InstallFile)
  498. )
  499.  
  500. (Procedure InstallArexx
  501.     (set ARexx (tackon @dest "ARexx"))
  502.     (makedir ARexx (infos))
  503.     (tooltype (dest ARexx) (noposition))
  504.  
  505.     (set Installing msg_ARexx)
  506.     (set LhaFile lha_ARexx)
  507.     (set DiskNum num_ARexx)
  508.     (InstallFile)
  509. )
  510.  
  511. (Procedure InstallScripts
  512.     (set Scripts (tackon @dest "Scripts"))
  513.     (makedir Scripts (infos))
  514.     (tooltype (dest Scripts) (noposition))
  515.  
  516.     (set Installing msg_Demos)
  517.     (set LhaFile lha_Scripts)
  518.     (set DiskNum num_Scripts)
  519.     (InstallFile)
  520.  
  521.     (MoveLingua)
  522. )
  523.  
  524. (Procedure InstallEX
  525.     (set EX (tackon @dest "EX"))
  526.     (makedir EX (infos))
  527.     (tooltype (dest EX) (noposition))
  528.     (set StartupDrawer (tackon @dest "Startup"))
  529.     (makedir StartupDrawer (infos))
  530.     (tooltype (dest StartupDrawer) (noposition))
  531.  
  532.     (set Installing msg_EX)
  533.     (set LhaFile lha_EX)
  534.     (set DiskNum num_EX)
  535.     (InstallFile)
  536. )
  537.  
  538. (Procedure InstallFonts
  539.     (set Installing msg_Fonts)
  540.     (set LhaFile lha_Fonts)
  541.     (set DiskNum num_Fonts)
  542.     (InstallFontFiles)
  543. )
  544.  
  545. (Procedure InstallBack
  546.     (set Back (tackon @dest "Backgrounds"))
  547.     (makedir Back (infos))
  548.     (tooltype (dest Back) (noposition))
  549.     (set Installing msg_Back)
  550.  
  551.     (set LhaFile lha_Back1)
  552.     (set DiskNum num_Back1)
  553.     (InstallFile)
  554.     (if (not UPGR)
  555.       (
  556.        (set LhaFile lha_Back2)
  557.        (set DiskNum num_Back2)
  558.        (InstallFile)
  559.    
  560.        (set LhaFile lha_Back3)
  561.        (set DiskNum num_Back3)
  562.        (InstallFile)
  563.    
  564.        (set LhaFile lha_Back4)
  565.        (set DiskNum num_Back4)
  566.        (InstallFile)
  567.    
  568.        (set LhaFile lha_Back5)
  569.        (set DiskNum num_Back5)
  570.        (InstallFile)
  571.    )
  572.     )
  573.     (if (or (= VideoMode "NTSC") BackSize)
  574.       (MakeOverscan)
  575.     )
  576. )
  577.  
  578. (Procedure InstallDemos
  579.     (set Anim (tackon @dest "Animations"))
  580.     (makedir Anim (infos))
  581.     (tooltype (dest Anim) (noposition))
  582.  
  583.     (set Sounds (tackon @dest "Sounds"))
  584.     (makedir Sounds (infos))
  585.     (tooltype (dest Sounds) (noposition))
  586.  
  587.     (set Music (tackon @dest "Music"))
  588.     (makedir Music (infos))
  589.     (tooltype (dest Music) (noposition))
  590.  
  591.     (set Text (tackon @dest "Text"))
  592.     (makedir Text (infos))
  593.     (tooltype (dest Text) (noposition))
  594.  
  595.     (set Back (tackon @dest "Backgrounds"))
  596.     (makedir Back (infos))
  597.     (tooltype (dest Back) (noposition))
  598.  
  599.     (set Installing msg_Demos)
  600.  
  601.     (set LhaFile lha_Demos1)
  602.     (set DiskNum num_Demos1)
  603.     (InstallFile)
  604.  
  605.     (set LhaFile lha_Demos2)
  606.     (set DiskNum num_Demos2)
  607.     (InstallFile)
  608.  
  609.     (if (not UPGR)
  610.       (
  611.        (set LhaFile lha_Demos3)
  612.        (set DiskNum num_Demos3)
  613.        (InstallFile)
  614.  
  615.        (set LhaFile lha_Demos4)
  616.        (set DiskNum num_Demos4)
  617.        (InstallFile)
  618.    )
  619.     )
  620.  
  621. )
  622.  
  623.  
  624. (Procedure ResizeBack
  625.     (set BackSize
  626.       (+ 1 (askchoice
  627.                (prompt msg_Overscan2 msg_ChooseSize)
  628.                (help @askchoice-help)
  629.                (choices STD MAX)
  630.         )
  631.    )
  632.     )
  633.     (MakeOverscan)
  634. )
  635.  
  636. ;------------------------------- Main program -----------------------------
  637. (CheckFastMem)
  638. (CheckConfig)
  639. (InstallMenu)
  640. (if (<> Selection opt_Fonts)     (DestMenu))
  641. (if (bitand Selection opt_Back)        (BackMenu))
  642. (CopyTools)
  643. (if (bitand Selection opt_Scala) (InstallScala))
  644. (if (bitand Selection opt_Utils) (InstallUtils))
  645. (if (bitand Selection opt_ARexx) (InstallARexx))
  646. (if (bitand Selection opt_Demos) (InstallScripts))
  647. (if (bitand Selection opt_EX)    (InstallEX))
  648. (if (bitand Selection opt_Palettes) (InstallPalettes))
  649. (if (bitand Selection opt_Symbols)  (InstallSymbols))
  650. (if (bitand Selection opt_Fonts) (InstallFonts))
  651. (if (bitand Selection opt_Back)     (InstallBack))
  652. (if (bitand Selection opt_Demos) (InstallDemos))
  653.  
  654.  
  655. (DeleteTools)
  656.  
  657. (if (bitand Selection opt_Scala) (DeleteOldFiles))
  658.  
  659. (exit)
  660. (welcome)
  661.